﻿Public Class Camino
    Inherits Ficha
    Private coste As Mazo

    Public Sub New(ByVal numLado As Integer)
        MyBase.New(numLado)
    End Sub

    Public Function getCoste() As Mazo
        If coste.Equals(Nothing) Then
            Dim b As BarajaRecursos
            '        b = BarajaDesarrollo.Singleton.GetInstance
            coste = New Mazo(b)
            coste.Add(b.cartaParaTipo(Recurso.Madera))
            coste.Add(b.cartaParaTipo(Recurso.Ladrillo))
        End If
        Return coste
    End Function

    Public Function puedeColocar(ByVal Tablero As TableroCatan, ByVal p As PosicionArista) As Boolean

    End Function
End Class
